-- background: 2735 from stack: in.0
-- bmap block id: 3325
-- flags: 4000
-- background id: 0
-- name: label
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground

on idle -- make sure that everything that should be visible is
  if the visible of field "printing screen" is true then
    hide field "printing screen"
  end if

  if the visible of bg button "about…" is false then
    show bg button "about…"
  end if

  pass idle
end idle

on find modifier,whatToFind
  if modifier is "normal" then -- substitute 'find whole' for find
    find whole whatToFind
  else -- let all other kinds of 'find' work normally
    pass find
  end if
end find

on newCard
  -- make a new card based on the first card of the stack

  hide the message
  put cursor into oldCursor

  set cursor to watch
  lock screen
  put CopyScrap () into scrapHandle -- save the clipboard

  -- copy first card of the stack
  push card
  go to card 1
  domenu copy card
  pop card

  doMenu delete card -- delete card created by 'New Card'
  go previous

  -- initialize copy of first card
  domenu paste card
  set the cantDelete of this card to false
  repeat with i = 1 to the number of card fields
    put empty into card field i
  end repeat
  repeat with i = 1 to the number of background fields
    put empty into background field i
  end repeat

  put the short date into field "date a"
  put the short date into field "date b"

  put "Dolby B" into field "NR A"
  put "Dolby B" into field "NR B"

  RestoreScrap scrapHandle -- restore the clipboard
  DisposeScrapCopy scrapHandle
  unlock screen
end newCard

on arrowKey direction -- show only cards of this background
  if direction is "left" then
    if the optionKey is down then go prev
    else go prev card of this bkgnd
  else if direction is "right" then
    if the optionKey is down then go next
    else go next card of this bkgnd
  else
    -- use default action for other arrow keys
    pass arrowKey
  end if -- show only cards of this background
end arrowKey




-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=421 top=260 right=285 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseDown
  repeat
    visual effect wipe right
    go to next card of this bg
    if the mouse is up then exit repeat
  end repeat
end mouseDown



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=392 top=260 right=285 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseDown
  repeat
    visual effect wipe left
    go to previous card of this bg
    if the mouse is up then exit repeat
  end repeat
end mouseDown



-- part 19 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=326 top=26 right=76 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  push card
  go to card "help"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=326 top=128 right=178 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=326 top=77 right=127 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  go Home
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=484 top=315 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 36 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=68 top=49 right=62 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Date A


-- part 37 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=68 top=60 right=72 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: NR A


-- part 38 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=195 top=49 right=61 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Date B


-- part 39 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=195 top=60 right=72 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: NR B


-- part 43 (field)
-- low flags: 02
-- high flags: 0004
-- rect: left=385 top=38 right=125 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Comments


-- part 48 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=326 top=181 right=231 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 31200 / 31200
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change Text Style
----- HyperTalk script -----
on mouseUp
  -- change the text style of the current field
  if the selectedLine is empty
  then -- no field selected
  answer "Please click in a text field first."
else
  doMenu "Text Style..."
end if
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=424 top=181 right=231 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 17346 / 17346
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Music Library
----- HyperTalk script -----
on mouseUp
  put the selection into whatToFind

  -- simulate auto-hilite, since the real thing loses the selection
  set the hilite of me to true
  set the hilite of me to false

  visual effect zoom open
  go to stack ":new stacks:music library"

  if whatToFind is not empty
  then find whole whatToFind
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=386 top=128 right=178 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 4898 / 4898
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Label
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=446 top=128 right=178 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Label
----- HyperTalk script -----
on mouseUp
  lock screen
  show field "printing screen"
  hide bg button "about…"

  open printing with dialog
  print this card
  close printing

  hide field "printing screen"
  show bg button "about…"
  unlock screen
end mouseUp



-- part 49 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=308 top=20 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 9767
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printing Screen
----- HyperTalk script -----
-- This field blocks the things that do no need to be printed when
-- printing cassette lables.


-- part 59 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=0 top=20 right=44 bottom=29
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AboutÉ
----- HyperTalk script -----
on mouseUp
  hide the message box
  visual effect dissolve
  push card
  go to card "about…"
end mouseUp